home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / 3d / raystorm-complete / examples / exa.lha / arexx / dolphins.ray < prev    next >
Text File  |  1996-07-27  |  1KB  |  56 lines
  1. /***************
  2.  * NAME:        dolphins.ray
  3.  * DESCRIPTION: Underwater dolphins scene
  4.  * AUTHOR:      Andreas Heumann
  5.  ***************/
  6.  
  7. signal on error
  8.  
  9. options results
  10.  
  11. IF ~show('P','RAYSTORM') THEN DO
  12.     address COMMAND 'run >NIL: <NIL: /RayStorm'
  13.     address COMMAND WaitForPort RAYSTORM
  14. END
  15.  
  16. address RAYSTORM
  17.  
  18. 'TEXTUREPATH /textures'
  19. 'OBJECTPATH /objects'
  20.  
  21. 'SETSCREEN 160 128'
  22. 'SETCAMERA <965,-670,180> <68,-23,155> <0,0,1> 50 40'
  23. 'SETWORLD [10,20,55] [5,12,30]'
  24. 'POINTLIGHT <0,0,1000> SHADOW'
  25. 'POINTLIGHT <1000,-500,-100> [50,70,110]'
  26.  
  27. 'NEWSURFACE water'
  28. 'DIFFUSE [255,255,255]'
  29. 'TRANSPAR [255,255,255]'
  30. 'SPECULAR [0,0,0]'
  31. 'IMTEXTURE wood.itx <0,0,0> <0,0,0> <150,150,150> 0 0 0 0 0 0 0 0 0 4 3'
  32.  
  33. 'TRIANGLE water <500,-500,900> <-500,-500,900> <-500,500,900>'
  34. 'TRIANGLE water <500,-500,900> <500,500,900> <-500,500,900>'
  35.  
  36. 'NEWSURFACE back BRIGHT'
  37. 'DIFFUSE [0,0,0]'
  38. 'IMTEXTURE linear.itx <0,0,-500> <90,0,0> <2000,2000,2000> 30 60 130'
  39.  
  40. 'PLANE back <0,250,0>'
  41.  
  42. 'LOADOBJ dolphins.3ds <0,0,0> <0,0,0> <1,1,1>'
  43.  
  44. 'ANTIALIAS 1'
  45. 'STARTRENDER'
  46. 'SAVEPIC dolphins.iff'
  47.  
  48. 'CLEANUP'
  49.  
  50. exit 0
  51. error:
  52. say "Error" rc "in line" sigl ":"
  53. GETERRORSTR rc
  54. say result
  55.  exit 0
  56.